home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / fortran / mslang / mouse_32 / mouse.fd < prev    next >
Text File  |  1993-06-16  |  973b  |  35 lines
  1. C     Include file for mouse calls.
  2.  
  3. C     Mouse events
  4.       INTEGER*4 LEFT_DOWN, RIGHT_DOWN, MIDDLE_DOWN
  5.       PARAMETER (LEFT_DOWN   = #01)    ! 0000 0010 Left button pressed
  6.       PARAMETER (RIGHT_DOWN  = #02)    ! 0000 1000 Right button pressed
  7.       PARAMETER (MIDDLE_DOWN = #04)    ! 0010 0000 Middle button pressed
  8.  
  9. C     Mouse event structure
  10.       STRUCTURE / EVENT /
  11.          INTEGER*2      x
  12.          INTEGER*2      y
  13.          INTEGER*4      fsBtn
  14.       END STRUCTURE
  15.  
  16. C     Button status structure
  17.       STRUCTURE / BTN_STS /
  18.          INTEGER*2      x
  19.          INTEGER*2      y
  20.          INTEGER*2      Btn
  21.          INTEGER*2      BtnState
  22.       END STRUCTURE
  23.  
  24. C Values for SetPtrVis function
  25.  
  26.       INTEGER*4 SHOW, HIDE
  27.       PARAMETER (SHOW = 1)
  28.       PARAMETER (HIDE = 2)
  29.  
  30.  
  31.       INTEGER*4 MouseInit[EXTERN]
  32.       INTEGER*4 GetButtonPress[EXTERN]
  33.       INTEGER*4 GetButtonRelease[EXTERN]
  34.       LOGICAL GetMouseEvent[EXTERN]
  35.